vl.markPoint({filled: true})
.data(data2000)
.encode(
vl.x().fieldQ('fertility'),
vl.y().fieldQ('life_expect'),
vl.size().fieldQ('pop').scale({range: [0, 1000]})
.legend({orient: 'bottom', titleOrient: 'left'}),
vl.color().fieldN('cluster')
.legend(null),
vl.opacity().value(0.5),
vl.tooltip().fieldN('country'),
vl.order().fieldQ('pop').sort('descending'),
vl.column().fieldN('cluster')
)
.width(130)
.height(130)
.render()